Top 10k strings from Bizzicom (1985)(Merlin Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 x,h;"INVALID RESPONSE":
4 H+H,U;B$(T
4 (l1-u,p1)="/"
3 z,v+d;z$(s1,
3 z,v+d;"Group ";i$;" ":
3 x$(b,v+d):
3 l$(t)="/":
3 g$(i,u)=" "
3 g$(i)=z$(s1,l
3 V+T;"S";J$(
3 M1=M(D)*M(T):
3 K-U,V-U;F$:
3 D);"/";I$(T
3
2 z,z;"BUSINESS ANALYSIS";:
2 y(g,d)=rp:
2 x+h,u;b$(t
2 x$(g,p)="O":
2 va=z(f1,u)*z(f1,d):
2 va=va+z(f1,u)*z(f1,d):
2 v+u,u;b$(t
2 v$="BIZ1"+
2 u;"OPTIONS";
2 t)=x$(ct,x
2 t$(f1,t)=d$(c):
2 l1,p1;" ":
2 i,x+p;p$(d
2 i,v+c;p$(d
2 g$(x+c,c):
2 X,X+T;"^";
2 X+T,X+T;"^":
2 X+N,U;"5. Return to main menu";
2 X+H,U;"4. Display another item.";
2 X+D,X+T;" ";
2 X+D,H+H;" & press ENTER"
2 X+C,X+T;" ";
2 X+C,H+H;B$(
2 W$=" filed":
2 V-U,U;"5. Return to main menu.";
2 V,U;"WARNING-HIGH VALUE NOT PRINTED":
2 V,U;"PRICE OVER LIMIT OF `9999.99":
2 V,U;"NEGATIVE NUMBERS INVALID HERE.":
2 V,U;"9. COPY screen to printer";
2 V,T;"ONLY NUMBERS ARE VALID HERE.":
2 S+S,H+H;B$(
2 N,X+T;" ";
2 N,H+H;" & press ENTER":
2 N+N,U;"4. ENTER another new item";
2 M2=M(U)*M(T):
2 L1-U,V+C;"*******";
2 L1-U,P1+L2;" ";
2 L1-U,L;F$;" ";
2 L1,P1;" ":
2 L1,P1+Q;".00":
2 L1,P1+Q+I;Q$(I):
2 L1,P1+L2-J2;J$(
2 K,X+N;"^":
2 J$>9999.99
2 H+H,X+T;"^":
2 D;"WRONG YEAR":
2 D;"INVALID MONTH":
2 D;"INVALID DAY NO.":
2 D;"INVALID DATE":
2 D);"/";K$(I,T
2 ((H3-L3)/D):
2 "Save to cassette or Microdrive?":
1 z;"3. Print to screen";
1 z;"1. Print a line per item";
1 z,z;"ITEM:";
1 z,x+s;"DESC:";
1 z$(b*c,x+c):
1 y(u,u)=g1:
1 y(u,d)=g2:
1 y(g,u)=m(q):
1 y(g,d)=m(c):
1 x,z;"ENTER '2' if your selling andcost prices are exclusive of VAT":
1 x,h;"SALES (receipts) : ";cr;
1 x+t,d;"6. Display screen";
1 x+s,s;"INOPERATIVE";b$(
1 x+s,d;"7. Produce Trading Report";
1 x+q,h;"ORDERS PLACED : ";co
1 x+p;"LOSS:";
1 x+p;"GAIN:"
1 x+p;"COST:"
1 x+p,x+p;j$(t
1 x+p,v+c;j$(t
1 x+p,n;j$(t
1 x+n);"/";x$(u,v
1 x+h,z;"(";d$;")":
1 x+h,u;" (or '!' to escape to menu) "
1 x+h,d;"8. SAVE prog. and transactions":
1 x+h)=z$(f1,
1 x+h)=c$(d,d
1 x+d,s;"MONTH:";
1 x+d,h;"PURCHASES (issues): ";ci;
1 x+c,s;"YEAR :"
1 x+c)=c$(d,q
1 x$="BIZ2"+
1 x$(g,p)="R":
1 x$(g,p)="I":
1 vv=vv+z(s1,u)*z(s1,d):
1 vv=vv+z(f1,u):
1 vt=vt+e(i):
1 v,z;"ENTER number of required option"
1 v,u;"1. Main menu
1 v,q;"Press ENTER to continue":
1 v,q;"Item '";n$(
1 v,h;"Processing . . ";
1 v,h;"(or press ENTER)"
1 v+u,p;"9. Copy to printer"
1 v+u,h;"INVALID ENTRY":
1 v+u);"/8";x$(u,v+d)
1 v+t)="DESC QTY"
1 u;"LOSS/":
1 u;"Gain:";
1 u;"(to query by item code)"
1 u,v-d;"(VAT excluded)"
1 t,s;"Enter today's date";
1 t,d;"1. Listing of VAT payable";
1 t$=" / / "
1 t$(f1,s)=d$(c):
1 t$(f1,n)=d$(c):
1 start of rtn
1 s;"Loss:";
1 s;" Totals:";
1 s1=y(u,d):
1 q;"ITEM SALES SALES VAT"
1 q;"ITEM COST COST VAT"
1 q1=y(u,u):
1 q)="code":
1 q)=" ":
1 q$(i,u);" ";q$(i,d):
1 q$(i,d)="T"+q$(i,u,d
1 q$(fn,d,h):
1 pct=pct+ct:
1 p,d;"3. Print sales analysis";
1 p$=" . ":
1 o1=y(u,d):
1 nv=nv/(u+v1)
1 nv=nv+z(s1,u)*z(s1,d):
1 nv=gv/(u+v1)
1 nt=nt+f(i):
1 n1=y(u,u):
1 n,s;"DAY :";
1 n,d;"4. Print purchase analysis";
1 n)="*********":
1 line print
1 l;"GROSS NET":
1 l1=y(u,d):
1 l1,p1;"^ ";
1 l1,p1;"^ "
1 l1,p1;" ":
1 l1,p1-u;" ^"
1 l,u;"4. Print to ZX printer":
1 l,u;"2. Print Group totals only":
1 l,d;"5. Print order analysis";
1 l$="VAT RECOVERABLE"
1 l$="VAT PAYABLE"
1 l$="TRADING REPORT":
1 l$="SALES ANALYSIS"
1 l$="PURCHASE ANALYSIS"
1 l$="ORDER ANALYSIS"
1 l$="ITEM":
1 l$="Grand Totals - GROSS:"
1 l$=" Total Value :"
1 l$(v+u)=c$(d,u):
1 l$(v+d)=")":
1 l$(v)="8":
1 l$(u)="(":
1 l$(p)="8":
1 l$(n)=c$(u,u):
1 l$(h)=d$(c)
1 l$(h)="8":
1 k1=y(u,u):
1 k,z;g$(i,q
1 k,x+p;j$(t
1 k,v+c;j$(t
1 k,t;g$(i,d
1 k,p;g$(i,u)
1 j2=j2+1.005
1 j1=j1+.001
1 j$(i)=" ":
1 i1=y(u,d):
1 h1=y(u,u):
1 h,z;"It contains ";pct;" transactions -"
1 h+n,p;"to delete this item";
1 h)="Total":
1 h)=" Total"
1 gv=va/(u+v1)
1 gv=nv*(u+v1)
1 gv=gv/(u+v1):
1 gv=gv+z(s1,u)*z(s1,d):
1 gt=gt+g(i):
1 g(i)=g(i)/(u+v1)
1 g(i)=g(i)+gv:
1 g$(x+c)=g$(j):
1 g$(x+c)="yyyyy":
1 g$(j,u)="z"
1 g$(j,u)=" "
1 g$(j)<g$(x+c)
1 g$(i,u)="z":
1 f(i)=f(i)/(u+v1):
1 f(i)=f(i)+nv:
1 f$(u,u)="w":
1 f$(u,u)="u":
1 f$(u,h)="d":
1 f$(u)="v$(f2,
1 f$(t,u)="w":
1 f$(t,u)="u":
1 f$(t,h)="d":
1 f$(t)="v$(f1,
1 f$(d,u)="w":
1 f$(d,u)="u":
1 f$(d)="v$(f2,p
1 e-x-d
1 e-c
1 e(i)=e(i)/(u+v1):
1 e(i)=e(i)+vv:
1 d;"Final totals- REVENUE:";:
1 d,z;"--Date--";
1 d,x+p;"-Sales-";
1 d,v+c;"-Orders"
1 d,n;"-Purch-";
1 d);"/";n$(t
1 d$=" / /8 ":
1 cr=cr+y(u,u):
1 code L
1 ci=ci+y(u,d):
1 c,z;b$;b$;
1 c,z;"There are ";pct;" transactions -":
1 c,z;"The tape just loaded was writtenon ";d$;
1 c,z;"ENTER the name you want to give this copy.":
1 c,z;"ENTER the VAT percentage rate":
1 c,z;"ENTER '1' if VAT is included inyour cost and selling prices?"
1 c,d;"2. Listing of VAT recoverable";
1 c)=" ":
1 c$(u,u)=x$(d,d1)
1 c$(u)=c$(t)
1 c$(t,u)=x$(d,d1):
1 c$(t,u)=x$(ct,d1):
1 c$(t)>c$(d)
1 c$(t)<c$(u)
1 c$(d,u)=x$(ct,d1):
1 c$(d)=c$(t)
1 Z,Z;"ITEM:";
1 Z,X+T;"DESC:";
1 Z,C;" / ";
1 X+T;" RECEIPTS";
1 X+T;" ORDERS"
1 X+T;" ISSUES";
1 X+T;" DELETIONS";
1 X+T;" ADDITIONS";
1 X+T,Z;"New Order:";
1 X+T,X+C;"ORDER :";
1 X+T,V-U;F$
1 X+T,V+X;"8";T$(F1,t)
1 X+T,V+Q;C$
1 X+T,V+C;P$
1 X+S,U;B$(T
1 X+S,T;"6. WRITE TRANSACTION FILE";
1 X+S,Q;"Type in these operations.";
1 X+Q,T;"5. SAVE FILE & END SESSION";
1 X+Q,D;"The file holds ";N1;" items.":
1 X+P,Z;"File size set at ";
1 X+P,U;"or just ENTER for no change";
1 X+P,U;"2. Make amendments/adjustments";
1 X+P,U;"1. File this item";
1 X+P,U;" (press ENTER to leave blank)":
1 X+N,U;B$(T
1 X+H,x;"ENTRY REJECTED":
1 X+H,t;"(ENTER to start new session)":
1 X+H,U;B$(T
1 X+H,T;"7. ERASE AND START A NEW FILE"
1 X+D,S;"MONTH:";
1 X+D,L;N1;" items."
1 X+C,S;"YEAR :"
1 WHVA69186QWER:X
1 W$=" deleted":
1 Vat 69 (bot.) Walker red (b)Walker bla (b)Wh.Horse (bot)W.Horse (case)Remy Martin Hennessy Martell *** Martell VSOP Gordons gin Booths gin Smirnoff Drambuie Cointreau Grand Marnier sd Strega Kirsch Advocat Bells Tia Maria glayva bbbbbb df
1 V-U,U;"4. Display another item";
1 V,Z;"Processing . . .":
1 V,U;"5. Return to main menu";
1 V,S;"(ENTER when ready)":
1 V+U,U;"ENTER NO. OF REQUIRED ACTIVITY"
1 V+U,U;"9. COPY this screen to printer"
1 U,N+N;"^":
1 U$=K$(N1):
1 U$=K$(F2):
1 T;"GROUP ";A$;" TOTALS: C";J$(
1 T,Z;"In this session you made:";
1 T,Z;"File saved on ";l$;
1 T,X+C;" ";
1 T,V-U;"(deletions,";
1 T,V+N;" ";
1 T,U;"COST(AVE):";
1 T,T;"1. DISPLAY MODE";
1 T,S;"Enter the date";
1 S;"GRAND TOTALS: C";J$(
1 S,T;"2. INSERT NEW ITEM(s)";
1 S)="ZZZZZY":
1 S);" ";M$(F1);" C";J$(
1 S);" ";M$(F1);" ";N(F1,T)
1 Q)=" ":
1 P;"description, and stock)"
1 P,Z;" ON-ORDER:"
1 P,X+C;" ";
1 P,V-U;" ";
1 N;"changes, transactions)";
1 N,Z;"Date of last - RECEIPT:";
1 N,Z;" Receipt:";
1 N,V+X;"8";T$(F1,s)
1 N,S;"DAY :";
1 N,S;"(on screen or printer)";
1 N+N,U;B$(T
1 N+N,U;"3. Delete this item";
1 N(F1,I)=M(I):
1 N$=M$(F1):
1 Merlin Software
1 M3=M(Q)*M(C):
1 M3=M(Q)*M(C)
1 M3=M(C)*M(Q):
1 M2=N(F1,U)*N(F1,T):
1 M2=M(T)*M(U):
1 M1=N(F1,D)*N(F1,T):
1 M(T)=M(T)-RQ:
1 M(T)=M(T)+RQ:
1 M(Q)=M(Q)-RQ:
1 M(Q)=M(Q)+RQ:
1 M(I)=N(F1,I):
1 M(D)=M1/M(T):
1 M(C)=M3/M(Q):
1 M$(N3,X+Q):
1 M$(F1)=N$:
1 L1,P1;"^ ";
1 L1,P1;"^ "
1 L1,P1;" ":
1 L1,P1-U;" ^"
1 L,Z;" Issue:"
1 L,X+V;"8";T$(F1,n)
1 L,X+P;"(just item,";
1 L,X+C;"ISSUE :";
1 L,T;"4. QUICKLIST";
1 K-U,V+C;P$:
1 K,V-U;"^":
1 K$(J)=K$(J+U):
1 K$(I)=K$(I-U):
1 K$(I)="ZZZZZZ999":
1 K$(F2)<K$(N1)
1 J1=J1+.005
1 J$(u)=" ":
1 J$(U)=" ":
1 J$(I)=" ":
1 INVALID ENTRYL
1 I34 T34 I35 T35 I36 T36 I37 T37
1 H,Z;"4. Print on printer";
1 H,Z;"2. Print summary for each group";
1 H,Z;"2. Print on printer";
1 H,T;"3. PRINT VALUATION REPORT";
1 H,Q;"Stock file contains:";
1 H+p)
1 H+X,Q;"Or ENTER to bypass."
1 H+N,U;"1. File this changed record.";
1 H+H,u;"Press 'Y' to confirm you want";
1 H+H,c;B$(L
1 H+H,U;"Type description & other data";
1 H+H,U;"Type new data where required";
1 H+H,U;"ITEM ";I$(
1 H+H,U;"1. Enter transactions ";
1 H+H,U;" Enter required item number. ";
1 H+H,U;" Details of any order ? "
1 H+H,H;h$;O$:
1 H+H,H;"Filing . .":
1 H+H,H;"Deleting . . .":
1 H+H)
1 For Steve Brown
1 E$(U)="R":
1 E$(T)="O":
1 E$(D)="I":
1 D,U;"--STOCK--"
1 D,L;"-PRICE- -QTY- -VALUE-";
1 D$(h)=J$(D):
1 D$(C)=J$(D):
1 C,Z;"3. Print to screen";
1 C,Z;"1. Print to screen";
1 C,Z;"1. Print all items";
1 C,X+C;" ";
1 C,V+N;" ";
1 C,U;"SELLING :";
1 BRHENN7 BRMAR38 BRMARV9 BRREMA6 GIBOO 11 GIGORD10 LIADV 19 LICOIN14 LIDRAM13 LIGRMA15 LIKIR 18 LISTRA17 LITIAM21 VOSMIR12 WHBELL20 WHJWBL3 WHJWRL2 WHVA691 WHWHH 4 WHWHHC5 ZZZZZY22 ZZZZZY25 ZZZZZY24 ZZZZZY23 ZZZZZY16 ZZZZZZ999ZZZZZZ999ZZZZZZ999ZZZZZZ999ZZZZZZ999
1 BIZZICOM-2
1 BIZZICOM-11Q
1 BIZZICOM-1
1 4
1 3
1 )="VAT :":
1 )="REVENUE"
1 )="Group total value:"
1 );"' not found ":
1 );" NOT FOUND IN FILE";
1 );" ALREADY IN FILE";
1 (pct/a)*a:
1 ((M(D)+.005
1 ((M(C)+.005
1 ( / /8 to / /8
1 &TZXed by Andrew Barker
1 "maximum of 390":
1 "Type the maximum number of itemsyou may need on file.":
1 "Type a name for this file."
1 "Transactions will be saved in two files.":
1 "Transaction file full. It mustnow be saved.":
1 "The file just loaded was writtenon ";x$(u,x+h
1 "Stock Quantity:";N(F1,T);
1 "Start the tape."
1 "Save to cassette or microdrive? (ENTER C or M)":
1 "STOCK VALUATION ";l$:
1 "STOCK RECORDING";
1 "Rewind tape to verify.":
1 "Reply 'C' or 'M'":
1 "Put a FORMATTED blank cartridgein microdrive 1";:
1 "Next file pair: ";
1 "Name only the 'I' member of eachpair when prompted."
1 "Item Description Value":
1 "It must be a number between 1 and 5.":
1 "Insert cartridge for this seriesof transaction files in drive 1 -ENTER when ready.":
1 "ITEM DESCRIPTION QUANTITY":
1 "ITEM REVENUE COST GAIN ":
1 "How many transaction files doyou wish to load? ";
1 "Give the names (as on the drive catalogue) of transaction files to be loaded.":
1 "First file pair: ";:
1 "File is full. No more additionsuntil space freed by deletions.":
1 "Enter 'Y' to confirm you want toerase this file (or press ENTER)":
1 "ENTER after each name.":
1 "ENTER when ready - or '!' tobypass":
1 "Check Microdrive 1 contains thecartridge the program was loadedfrom,";:
1 "BIZZICOM-2"
1 "Are transaction files required for processing by BIZZICOM-2?":
1 "Are the transactions on cassetteor Microdrive - Reply 'C' or 'M'":
1 "360"
1 "353"
1 "(up to 390.)"
1 "(Press ENTER to return to menu.)":
1 "(ENTER to return to menu)":
1 "('Y' or 'N')":
1 " then ENTER":
1 Enter required group or item
1 2. New item ";
1 (or '!' to escape to menu)
1 P
1
1
1
1
1